home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
amok
/
081-090
/
amok83
/
tked
/
test.txt
< prev
next >
Wrap
Text File
|
1993-11-04
|
4KB
|
144 lines
sadsadsa
sadsa
sadsa
sa
END CheckVirus;
(*------------------------------------------------------------------------*)
PROCEDURE RawKeyConvert {console,-48} ( events{8} :ie.InputEventPtr;
(*On*) buffer{9} :LONGINT;
length{1} :LONGINT;
keyMap{10}:LONGINT);
(*Off*)
(*------------------------------------------------------------------------*)
PROCEDURE RawKeyToASCII* (VAR code1 : INTEGER;
(*On*) VAR qualifier1 : SET;
VAR address1 : e.ADDRESS) : INTEGER;
(* Same procedure as Req.RawKeyToAscii *)
VAR
ievent : ie.InputEventAdr;
Buffer : ARRAY 33 OF CHAR;
aPtr : POINTER TO sys.ADDRESS;
BEGIN
aPtr := address1;
RawKeyConvert(sys.ADR(ievent),sys.ADR (Buffer[0]),32,NIL);
RETURN ORD(Buffer[0]);
END RawKeyToASCII;
(*Off*)
(*------------------------------------------------------------------------*)
MODULE TKEdFunk8;
(*On*)
(* $CaseChk- $NilChk- $OvflChk- $RangeChk- $ReturnChk- $StackChk- $TypeChk- *)
IMPORT
c : Conversions,
sys : SYSTEM,
TK0 : TKEdFunk0,
TK1 : TKEdFunk1,
wb : Workbench;
CONST
VAR
console : e.DevicePtr;
wreq : e.IOStdReq;
(*Off*)
(*-----------------------------------------------------------------------*)
PROCEDURE MarkAllText* (Root : TK1.LinePtr);
(*On*)
VAR
ShowText : TK1.LinePtr;
BEGIN
TK0.MarkBeg := 1;
TK0.MarkEnd := TK0.LineNr;
END MarkAllText;
(*Off*)
(*-----------------------------------------------------------------------*)
PROCEDURE CallIconify* (): BOOLEAN;
(*On*)
VAR
wi : i.NewWindow;
IMes : POINTER TO i.IntuiMessage;
Len : INTEGER;
wbheight: INTEGER;
BEGIN
TK0.TMP^[0] := 0X;
s.Append (TK0.TMP^, TK0.FileName^);
TK0.Win1 := NIL;
RETURN (Moved);
END CallIconify;
(*Off*)
(*-----------------------------------------------------------------------*)
PROCEDURE DelAppWin* ();
(*On*)
VAR
AMes : POINTER TO wb.AppMessage;
BEGIN
IF TK0.Appwi # NIL THEN
IF wb.RemoveAppWindow (TK0.Appwi) THEN END;
TK0.Appwi := NIL;
END;
END DelAppWin;
(*Off*)
(*-----------------------------------------------------------------------*)
PROCEDURE MakeAppWin* () : SHORTINT;
(*On*)
VAR
wi : i.NewWindow;
wbheight: INTEGER;
BEGIN
RETURN (TK0.AppPort^.sigBit);
END MakeAppWin;
(*Off*)
(*---------------------------------------------------------------------*)
PROCEDURE CheckVirus* ();
(*On*)
VAR
MyFile : mf.File;
FileSize : LONGINT;
TMP : ARRAY 170 OF CHAR;
BEGIN
sadsadsa
sadsa
sadsa
sa
END CheckVirus;
(*Off*)
(*------------------------------------------------------------------------*)
PROCEDURE RawKeyConvert {console,-48} ( events{8} :ie.InputEventPtr;
(*On*) buffer{9} :LONGINT;
length{1} :LONGINT;
keyMap{10}:LONGINT);
(*Off*)
(*------------------------------------------------------------------------*)
PROCEDURE RawKeyToASCII* (VAR code1 : INTEGER;
(*On*) VAR qualifier1 : SET;
VAR address1 : e.ADDRESS) : INTEGER;
(* Same procedure as Req.RawKeyToAscii *)
VAR
ievent : ie.InputEventAdr;
Buffer : ARRAY 33 OF CHAR;
aPtr : POINTER TO sys.ADDRESS;
BEGIN
aPtr := address1;
RawKeyConvert(sys.ADR(ievent),sys.ADR (Buffer[0]),32,NIL);
RETURN ORD(Buffer[0]);
END RawKeyToASCII;
(*Off*)
(*------------------------------------------------------------------------*)
BEGIN
IF rt.req # NIL THEN
TK0.i1 := e.OpenDevice("console.device",-1,sys.ADR(wreq),LONGSET{});
IF TK0.i1 # NIL THEN
TK0.NilTest (NIL);
END;
console := wreq.device;
END;
CLOSE
IF rt.req # NIL THEN
IF console # NIL THEN e.CloseDevice(sys.ADR(wreq)) END;
END;
END TKEdFunk8.